/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / HyperTalk / LightSpeed HC XCMD kit / Tutorial Folder / CS to HC date converter / CS to HC test code

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| ae 0f 03 48 00 00 00 00 | 04 63 73 68 63 08 80 00 |...H....|.cshc...|
|00000010| 0a 1c 00 00 00 00 00 62 | 00 00 00 00 00 00 98 01 |.......b|........|
|00000020| 92 1e 00 01 36 7b 74 65 | 73 74 73 20 43 6f 6d 70 |....6{te|sts Comp|
|00000030| 75 73 65 72 76 65 20 74 | 6f 20 48 79 70 65 72 63 |userve t|o Hyperc|
|00000040| 61 72 64 20 64 61 74 65 | 20 66 6f 72 6d 61 74 20 |ard date| format |
|00000050| 63 6f 6e 76 65 72 73 69 | 6f 6e 7d 52 94 01 a2 01 |conversi|on}R....|
|00000060| b4 09 00 c8 00 84 0a 64 | 61 74 65 6c 65 6e 67 74 |.......d|atelengt|
|00000070| 68 08 78 05 00 00 00 00 | 03 00 00 09 98 01 94 01 |h.x.....|........|
|00000080| a4 01 b4 09 00 00 00 ae | 0a 64 61 74 65 73 74 72 |........|.datestr|
|00000090| 69 6e 67 08 b6 0b 4d 00 | 00 0a 00 00 00 78 0a 64 |ing...M.|.....x.d|
|000000a0| 61 74 65 6c 65 6e 67 74 | 68 08 98 01 b4 07 00 00 |atelengt|h.......|
|000000b0| 00 e6 07 64 61 79 54 79 | 70 65 b6 05 4d 00 00 03 |...dayTy|pe..M...|
|000000c0| 03 00 00 02 98 01 b4 09 | 01 24 00 00 0b 43 53 6d |........|.$...CSm|
|000000d0| 6f 6e 74 68 54 79 70 65 | b6 05 4d 00 00 04 03 00 |onthType|..M.....|
|000000e0| 00 03 98 01 b4 09 06 b4 | 01 04 0b 48 43 6d 6f 6e |........|...HCmon|
|000000f0| 74 68 54 79 70 65 b6 05 | 4d 00 00 03 03 00 00 02 |thType..|M.......|
|00000100| 98 01 b4 08 00 00 00 00 | 08 79 65 61 72 54 79 70 |........|.yearTyp|
|00000110| 65 08 b6 05 4d 00 00 03 | 03 00 00 02 98 01 94 01 |e...M...|........|
|00000120| ba 01 7c 0b 03 4e 00 00 | 06 63 73 64 61 74 65 08 |..|..N..|.csdate.|
|00000130| 12 00 01 3c fd 4e 01 28 | a6 01 7c 0d 40 00 00 96 |...<.N.(|..|.@...|
|00000140| 0a 64 61 74 65 73 74 72 | 69 6e 67 08 00 00 00 00 |.datestr|ing.....|
|00000150| 00 00 00 00 98 01 94 01 | 94 01 92 27 00 01 48 7b |........|...'..H{|
|00000160| 63 6f 6e 76 65 72 74 6d | 6f 6e 74 68 20 63 6f 6e |convertm|onth con|
|00000170| 76 65 72 74 73 20 6d 6f | 6e 74 68 20 66 72 6f 6d |verts mo|nth from|
|00000180| 20 43 6f 6d 70 75 73 65 | 72 76 65 20 46 6f 72 6d | Compuse|rve Form|
|00000190| 61 74 20 74 6f 20 48 79 | 70 65 72 63 61 72 64 20 |at to Hy|percard |
|000001a0| 66 6f 72 6d 61 74 7d 58 | 92 2e 00 01 57 7b 69 66 |format}X|....W{if|
|000001b0| 20 74 68 65 20 63 61 73 | 65 20 73 74 61 74 65 6d | the cas|e statem|
|000001c0| 65 6e 74 20 6c 6f 6f 6b | 73 20 61 20 6c 69 74 74 |ent look|s a litt|
|000001d0| 6c 65 20 73 74 72 61 6e | 67 65 2c 20 69 74 27 73 |le stran|ge, it's|
|000001e0| 20 62 65 63 61 75 73 65 | 20 69 74 27 73 20 62 75 | because| it's bu|
|000001f0| 69 6c 74 20 66 6f 72 20 | 65 66 66 69 63 69 65 6e |ilt for |efficien|
|00000200| 63 79 3a 7d 92 28 00 01 | 4b 7b 4f 6e 6c 79 20 6f |cy:}.(..|K{Only o|
|00000210| 6e 65 20 63 68 61 72 61 | 63 74 65 72 20 69 73 20 |ne chara|cter is |
|00000220| 75 73 65 64 20 74 6f 20 | 64 69 73 74 69 6e 67 75 |used to |distingu|
|00000230| 69 73 68 20 62 65 74 77 | 65 65 6e 20 74 68 65 20 |ish betw|een the |
|00000240| 6d 6f 6e 74 68 73 20 2d | 20 74 68 65 20 74 68 69 |months -| the thi|
|00000250| 72 64 2e 7d 92 29 00 01 | 4c 7b 54 68 65 20 74 68 |rd.}.)..|L{The th|
|00000260| 69 72 64 20 63 68 61 72 | 61 63 74 65 72 20 77 61 |ird char|acter wa|
|00000270| 73 20 63 68 6f 73 65 6e | 20 62 65 63 61 75 73 65 |s chosen| because|
|00000280| 20 69 74 20 64 69 73 74 | 69 6e 67 75 69 73 68 65 | it dist|inguishe|
|00000290| 73 20 62 65 74 77 65 6e | 20 6d 6f 72 65 20 6d 6f |s betwen| more mo|
|000002a0| 6e 74 68 73 7d 04 92 2d | 00 01 54 7b 74 68 61 6e |nths}..-|..T{than|
|000002b0| 20 65 69 74 68 65 72 20 | 74 68 65 20 66 69 72 73 | either |the firs|
|000002c0| 74 20 6f 72 20 73 65 63 | 6f 6e 64 20 63 68 61 72 |t or sec|ond char|
|000002d0| 61 63 74 65 72 2e 20 20 | 46 6f 72 20 65 78 61 6d |acter.  |For exam|
|000002e0| 70 6c 65 2c 20 27 4a 27 | 20 69 73 20 61 20 63 68 |ple, 'J'| is a ch|
|000002f0| 61 72 61 63 74 65 72 20 | 63 6f 6d 6d 6f 6e 7d 01 |aracter |common}.|
|00000300| 92 24 00 01 42 7b 74 6f | 20 4a 61 6e 75 61 72 79 |.$..B{to| January|
|00000310| 2c 20 4a 75 6e 65 2c 20 | 61 6e 64 20 4a 75 6c 79 |, June, |and July|
|00000320| 2c 20 27 4d 27 20 69 73 | 20 63 6f 6d 6d 6f 6e 20 |, 'M' is| common |
|00000330| 74 6f 20 4d 61 79 20 61 | 6e 64 20 4d 61 72 63 68 |to May a|nd March|
|00000340| 2c 20 65 74 63 2e 7d 00 | b2 16 03 c8 00 00 00 00 |, etc.}.|........|
|00000350| 0c 63 6f 6e 76 65 72 74 | 6d 6f 6e 74 68 08 80 00 |.convert|month...|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 a8 01 7c 0b | 00 00 00 00 07 43 53 6d |......|.|.....CSm|
|00000380| 6f 6e 74 68 00 00 00 00 | 00 00 00 00 a6 01 7c 0d |onth....|......|.|
|00000390| 00 00 00 00 0b 48 43 6d | 6f 6e 74 68 54 79 70 65 |.....HCm|onthType|
|000003a0| 00 00 00 00 00 00 00 00 | aa 01 a6 01 7c 0d 00 00 |........|....|...|
|000003b0| 00 00 0b 48 43 6d 6f 6e | 74 68 54 79 70 65 00 00 |...HCmon|thType..|
|000003c0| 00 00 00 00 00 00 98 01 | 7e 03 00 00 06 66 88 13 |........|~....f..|
|000003d0| 06 62 00 00 00 08 15 80 | 00 00 00 00 00 00 00 00 |.b......|........|
|000003e0| 00 5c 07 43 53 6d 6f 6e | 74 68 18 08 5a 03 00 03 |.\.CSmon|th..Z...|
|000003f0| 1c 08 6c 08 94 01 78 05 | 05 86 00 02 02 00 01 6e |..l...x.|.......n|
|00000400| a6 01 92 09 00 00 0d 20 | 7b 4a 61 6e 20 6f 72 20 |....... |{Jan or |
|00000410| 4a 75 6e 7d 86 0b 5c 07 | 43 53 6d 6f 6e 74 68 18 |Jun}..\.|CSmonth.|
|00000420| 5a 03 00 02 1c 44 5a 02 | 01 61 80 0b 5c 0c 63 6f |Z....DZ.|.a..\.co|
|00000430| 6e 76 65 72 74 6d 6f 6e | 74 68 0a 5a 02 01 31 08 |nvertmon|th.Z..1.|
|00000440| 96 01 80 0b 5c 0c 63 6f | 6e 76 65 72 74 6d 6f 6e |....\.co|nvertmon|
|00000450| 74 68 0a 5a 02 01 36 08 | 98 01 94 01 78 05 05 b6 |th.Z..6.|....x...|
|00000460| 00 05 02 00 01 72 a6 01 | 92 0a 00 00 0e 20 20 7b |.....r..|.....  {|
|00000470| 4d 61 72 20 6f 72 20 41 | 70 72 7d 6f 86 0b 5c 07 |Mar or A|pr}o..\.|
|00000480| 43 53 6d 6f 6e 74 68 18 | 5a 03 00 02 1c 44 5a 02 |CSmonth.|Z....DZ.|
|00000490| 01 61 80 0b 5c 0c 63 6f | 6e 76 65 72 74 6d 6f 6e |.a..\.co|nvertmon|
|000004a0| 74 68 0a 5a 02 01 33 08 | 96 01 80 0b 5c 0c 63 6f |th.Z..3.|....\.co|
|000004b0| 6e 76 65 72 74 6d 6f 6e | 74 68 0a 5a 02 01 34 08 |nvertmon|th.Z..4.|
|000004c0| 98 01 94 01 78 05 06 16 | 00 08 02 00 01 62 a6 01 |....x...|.....b..|
|000004d0| 92 06 00 00 07 20 20 7b | 46 65 62 7d 80 0b 5c 0c |.....  {|Feb}..\.|
|000004e0| 63 6f 6e 76 65 72 74 6d | 6f 6e 74 68 0a 5a 02 01 |convertm|onth.Z..|
|000004f0| 32 08 98 01 78 05 00 00 | 00 09 02 00 01 79 a6 01 |2...x...|.....y..|
|00000500| 92 06 00 00 07 20 20 7b | 4d 61 79 7d 80 0b 5c 0c |.....  {|May}..\.|
|00000510| 63 6f 6e 76 65 72 74 6d | 6f 6e 74 68 0a 5a 02 01 |convertm|onth.Z..|
|00000520| 35 08 98 01 78 05 03 f8 | 00 0a 02 00 01 6c a6 01 |5...x...|.....l..|
|00000530| 92 06 00 00 07 20 20 7b | 4a 75 6c 7d 80 0b 5c 0c |.....  {|Jul}..\.|
|00000540| 63 6f 6e 76 65 72 74 6d | 6f 6e 74 68 0a 5a 02 01 |convertm|onth.Z..|
|00000550| 37 08 98 01 78 05 05 26 | 00 0b 02 00 01 67 a6 01 |7...x..&|.....g..|
|00000560| 92 06 00 00 07 20 20 7b | 41 75 67 7d 80 0b 5c 0c |.....  {|Aug}..\.|
|00000570| 63 6f 6e 76 65 72 74 6d | 6f 6e 74 68 0a 5a 02 01 |convertm|onth.Z..|
|00000580| 38 08 98 01 78 05 04 5e | 00 0c 02 00 01 70 a6 01 |8...x..^|.....p..|
|00000590| 92 06 00 00 07 20 20 7b | 53 65 70 7d 80 0b 5c 0c |.....  {|Sep}..\.|
|000005a0| 63 6f 6e 76 65 72 74 6d | 6f 6e 74 68 0a 5a 02 01 |convertm|onth.Z..|
|000005b0| 39 08 98 01 78 05 05 e6 | 00 0d 02 00 01 74 a6 01 |9...x...|.....t..|
|000005c0| 92 06 00 00 07 20 20 7b | 4f 63 74 7d 80 0b 5c 0c |.....  {|Oct}..\.|
|000005d0| 63 6f 6e 76 65 72 74 6d | 6f 6e 74 68 0a 5a 05 02 |convertm|onth.Z..|
|000005e0| 31 30 98 01 78 05 04 f6 | 00 0e 02 00 01 76 a6 01 |10..x...|.....v..|
|000005f0| 92 06 00 00 07 20 20 7b | 4e 6f 76 7d 80 0b 5c 0c |.....  {|Nov}..\.|
|00000600| 63 6f 6e 76 65 72 74 6d | 6f 6e 74 68 0a 5a 05 02 |convertm|onth.Z..|
|00000610| 31 31 98 01 78 05 05 56 | 00 0f 02 00 01 63 a6 01 |11..x..V|.....c..|
|00000620| 92 06 00 00 07 20 20 7b | 44 65 63 7d 80 0b 5c 0c |.....  {|Dec}..\.|
|00000630| 63 6f 6e 76 65 72 74 6d | 6f 6e 74 68 0a 5a 05 02 |convertm|onth.Z..|
|00000640| 31 32 98 01 9c 01 80 0b | 5c 0c 63 6f 6e 76 65 72 |12......|\.conver|
|00000650| 74 6d 6f 6e 74 68 0a 5a | 05 02 3f 3f 98 01 9a 01 |tmonth.Z|..??....|
|00000660| 98 01 9a 01 98 01 94 01 | 92 23 00 01 41 7b 48 43 |........|.#..A{HC|
|00000670| 64 61 74 65 20 63 6f 6e | 76 65 72 74 73 20 64 61 |date con|verts da|
|00000680| 74 65 20 66 72 6f 6d 20 | 43 6f 6d 70 75 73 65 72 |te from |Compuser|
|00000690| 76 65 20 66 6f 72 6d 61 | 74 20 74 6f 20 48 79 70 |ve forma|t to Hyp|
|000006a0| 65 72 63 61 72 64 20 66 | 6f 72 6d 61 74 7d b2 13 |ercard f|ormat}..|
|000006b0| 07 f2 00 00 00 00 06 48 | 43 64 61 74 65 08 80 00 |.......H|Cdate...|
|000006c0| 07 f4 06 e6 01 00 06 da | 00 0e 00 02 00 04 07 10 |........|........|
|000006d0| 00 0c 00 0a a8 01 7c 0b | 00 00 07 30 06 63 73 64 |......|.|...0.csd|
|000006e0| 61 74 65 08 1b 08 06 f2 | 00 00 ff e6 a6 01 7c 0d |ate.....|......|.|
|000006f0| 40 00 00 96 0a 64 61 74 | 65 73 74 72 69 6e 67 08 |@....dat|estring.|
|00000700| 00 00 00 00 00 00 00 00 | aa 01 a6 01 7c 0d 40 00 |........|....|.@.|
|00000710| 00 96 0a 64 61 74 65 73 | 74 72 69 6e 67 08 00 00 |...dates|tring...|
|00000720| 00 00 00 00 00 00 98 01 | 94 01 ba 01 7c 09 07 5c |........|....|..\|
|00000730| 07 90 03 64 61 79 12 00 | 07 44 ff e2 07 34 a6 01 |...day..|.D...4..|
|00000740| 7c 0b 40 00 00 bc 07 64 | 61 79 54 79 70 65 00 00 ||.@....d|ayType..|
|00000750| 00 00 00 00 00 00 98 01 | 7c 0b 00 00 00 00 07 43 |........||......C|
|00000760| 53 6d 6f 6e 74 68 12 00 | 07 74 ff de 07 60 a6 01 |Smonth..|.t...`..|
|00000770| 7c 0d 40 00 00 da 0b 43 | 53 6d 6f 6e 74 68 54 79 ||.@....C|SmonthTy|
|00000780| 70 65 00 00 00 00 00 00 | 00 00 98 01 7c 0b 00 00 |pe......|....|...|
|00000790| 07 c4 07 48 43 6d 6f 6e | 74 68 12 00 07 a8 ff da |...HCmon|th......|
|000007a0| 07 94 a6 01 7c 0d 40 00 | 00 f8 0b 48 43 6d 6f 6e |....|.@.|...HCmon|
|000007b0| 74 68 54 79 70 65 00 00 | 00 00 00 00 00 00 98 01 |thType..|........|
|000007c0| 7c 0a 00 00 00 00 04 79 | 65 61 72 08 12 00 07 da ||......y|ear.....|
|000007d0| ff d6 07 c8 a6 01 7c 0c | 40 00 01 14 08 79 65 61 |......|.|@....yea|
|000007e0| 72 54 79 70 65 08 00 00 | 00 00 00 00 00 00 98 01 |rType...|........|
|000007f0| 94 01 7e 03 0a 1a 0a 18 | 94 01 92 1a 00 01 2e 7b |..~.....|.......{|
|00000800| 67 65 74 20 74 68 65 20 | 64 61 79 2c 20 74 68 65 |get the |day, the|
|00000810| 6e 20 64 65 6c 65 74 65 | 20 74 68 65 20 64 61 79 |n delete| the day|
|00000820| 20 66 72 6f 6d 20 63 73 | 64 61 74 65 7d 64 94 01 | from cs|date}d..|
|00000830| 86 11 5c 06 6c 65 6e 67 | 74 68 10 5c 06 63 73 64 |..\.leng|th.\.csd|
|00000840| 61 74 65 16 44 5c 0a 64 | 61 74 65 6c 65 6e 67 74 |ate.D\.d|atelengt|
|00000850| 68 08 7e 03 00 00 08 ca | 92 13 00 00 20 20 09 7b |h.~.....|....  .{|
|00000860| 74 68 65 20 64 61 79 20 | 69 73 20 62 65 74 77 65 |the day |is betwe|
|00000870| 65 6e 20 31 30 20 61 6e | 64 20 33 31 7d 64 80 12 |en 10 an|d 31}d..|
|00000880| 5c 03 64 61 79 0a 5c 04 | 63 6f 70 79 10 5c 06 63 |\.day.\.|copy.\.c|
|00000890| 73 64 61 74 65 12 5a 03 | 00 01 12 08 5a 03 00 02 |sdate.Z.|....Z...|
|000008a0| 16 08 98 01 84 10 06 64 | 65 6c 65 74 65 10 5c 06 |.......d|elete.\.|
|000008b0| 63 73 64 61 74 65 12 08 | 5a 03 00 01 12 08 5a 03 |csdate..|Z.....Z.|
|000008c0| 00 03 16 08 98 01 9a 01 | 96 01 7e 03 00 00 09 40 |........|..~....@|
|000008d0| 92 12 00 00 1e 20 09 7b | 74 68 65 20 64 61 79 20 |..... .{|the day |
|000008e0| 69 73 20 62 65 74 77 65 | 65 6e 20 31 20 61 6e 64 |is betwe|en 1 and|
|000008f0| 20 39 7d 80 80 12 5c 03 | 64 61 79 0a 5c 04 63 6f | 9}...\.|day.\.co|
|00000900| 70 79 10 5c 06 63 73 64 | 61 74 65 12 5a 03 00 01 |py.\.csd|ate.Z...|
|00000910| 12 08 5a 03 00 01 16 08 | 98 01 84 10 06 64 65 6c |..Z.....|.....del|
|00000920| 65 74 65 10 5c 06 63 73 | 64 61 74 65 12 08 5a 03 |ete.\.cs|date..Z.|
|00000930| 00 01 12 08 5a 03 00 02 | 16 08 98 01 9a 01 98 01 |....Z...|........|
|00000940| 94 01 92 0f 00 01 18 7b | 67 65 74 20 74 68 65 20 |.......{|get the |
|00000950| 79 65 61 72 20 61 6e 64 | 20 6d 6f 6e 74 68 7d 00 |year and| month}.|
|00000960| 94 01 80 13 5c 04 79 65 | 61 72 0a 5c 04 63 6f 70 |....\.ye|ar.\.cop|
|00000970| 79 10 5c 06 63 73 64 61 | 74 65 12 08 5a 03 00 05 |y.\.csda|te..Z...|
|00000980| 12 08 5a 03 00 02 16 08 | 98 01 80 14 5c 07 43 53 |..Z.....|....\.CS|
|00000990| 6d 6f 6e 74 68 0a 5c 04 | 63 6f 70 79 10 5c 06 63 |month.\.|copy.\.c|
|000009a0| 73 64 61 74 65 12 5a 03 | 00 01 12 08 5a 03 00 03 |sdate.Z.|....Z...|
|000009b0| 16 08 98 01 80 13 5c 07 | 48 43 6d 6f 6e 74 68 0a |......\.|HCmonth.|
|000009c0| 5c 0c 63 6f 6e 76 65 72 | 74 6d 6f 6e 74 68 10 5c |\.conver|tmonth.\|
|000009d0| 07 43 53 6d 6f 6e 74 68 | 16 08 98 01 80 1b 5c 06 |.CSmonth|......\.|
|000009e0| 48 43 64 61 74 65 0a 5c | 06 63 6f 6e 63 61 74 10 |HCdate.\|.concat.|
|000009f0| 5c 07 48 43 6d 6f 6e 74 | 68 12 5a 02 01 2f 12 5c |\.HCmont|h.Z../.\|
|00000a00| 03 64 61 79 12 5a 02 01 | 2f 12 5c 04 79 65 61 72 |.day.Z..|/.\.year|
|00000a10| 16 08 98 01 9a 01 98 01 | 94 01 7e 03 00 00 0a dc |........|..~.....|
|00000a20| 80 0c 5c 06 63 73 64 61 | 74 65 0a 5a 05 09 32 38 |..\.csda|te.Z..28|
|00000a30| 2d 4a 61 6e 2d 38 38 08 | 98 01 84 0a 07 77 72 69 |-Jan-88.|.....wri|
|00000a40| 74 65 6c 6e 10 5c 06 63 | 73 64 61 74 65 16 98 01 |teln.\.c|sdate...|
|00000a50| 84 0f 07 77 72 69 74 65 | 6c 6e 10 5c 06 48 43 64 |...write|ln.\.HCd|
|00000a60| 61 74 65 10 5c 06 63 73 | 64 61 74 65 16 16 98 01 |ate.\.cs|date....|
|00000a70| 94 01 7c 0b 00 00 00 00 | 07 77 72 69 74 65 6c 6e |..|.....|.writeln|
|00000a80| 00 00 00 00 00 00 00 00 | 98 01 80 0b 5c 06 63 73 |........|....\.cs|
|00000a90| 64 61 74 65 0a 5a 05 08 | 39 2d 41 75 67 2d 38 38 |date.Z..|9-Aug-88|
|00000aa0| 98 01 84 0a 07 77 72 69 | 74 65 6c 6e 10 5c 06 63 |.....wri|teln.\.c|
|00000ab0| 73 64 61 74 65 16 98 01 | 84 0f 07 77 72 69 74 65 |sdate...|...write|
|00000ac0| 6c 6e 10 5c 06 48 43 64 | 61 74 65 10 5c 06 63 73 |ln.\.HCd|ate.\.cs|
|00000ad0| 64 61 74 65 16 16 98 01 | 9a 01 00 01 02 01       |date....|......  |
+--------+-------------------------+-------------------------+--------+--------+